home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / MODULES / LESSON01 / ACT01A / L01A1A.DIR / scripts_14_dragging.ls < prev    next >
Encoding:
Text File  |  2003-04-24  |  272 b   |  16 lines
  1. global gObj, gUI
  2.  
  3. on mouseEnter me
  4.   psmouseEnter(gObj, the currentSpriteNum)
  5. end
  6.  
  7. on mouseWithin me
  8.   psmouseWithin(gObj, the currentSpriteNum)
  9. end
  10.  
  11. on mouseUp me
  12.   if psmouseUp(gObj, the currentSpriteNum, "theFace") then
  13.     go(1, the moviePath & "L01A1b")
  14.   end if
  15. end
  16.